setdisplay(320,240,32,1):paper(0xFFFFFF):ink(0x000000):pen(0x000000):cls
while 0=0
   x=rnd(320):y=rnd(240):c=rgb(rnd(255),rnd(255),rnd(255))
   plot(x,y,c)
   if key(27)<>0 then:end:end if
 wend